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--File: wmanagerdef s.mesa 

--Edited by Sandman October 7, 1977 9:15 AM 

DIRECTORY 
MenuDefs: FROM "menudefs", 
KeyDefs: FROM "keydefs", 
StreamOefs: FROM "streamdef s" . 
RectangleOefs: FROM "rectangledefs", 
WindowDefs: FROM "windowdefs" ; 

DEFINITIONS FROM MenuDefs, StreamDefs, RectangleOefs, WindowDefs; 

WManagerDefs: DEFINITIONS =* 
BEGIN 

— some TYPE'S and POINTERS 

WMDataHandle: TYPE « POINTER TO WMDataObject; 
AMouseButton: TYPE = KeyDef s .MouseButton; 
Keyset: TYPE = [0. .378]; 

ButtonProc: PUBLIC TYPE = PROCEDURE[WindowHand1e, xCoord, yCoord]; 
ProcArray: PUBLIC TYPE = ARRAY AMouseButton OF ButtonProc; 
CursorType: TYPE = {textpointer, arrow, bullseye, leftbutton, 
uparrow, downarrow, botharrow, hourglass, norm}; 

-- programs implementing the WindowManager 

WManPosition: PROGRAM [WMState: WMDataHandle]; 
WManSelection: PROGRAM [WMState: WMDataHandle]; 
WManWindows: PROGRAM [WMState: WMDataHandle]; 
WManControl: PROGRAM; -- Control Module 
Double: PROGRAM; 
-- procedures implementing the WindowManager 

GetMouseButton: PROCEDURE RETURNS[AMouseButton]; 
GetKeySet: PROCEDURE RETURNS[KeySet] ; 
CursorToRectangl^Coords: PROCEDURE [Rptr, xCoord, yCoord] 

RETURNS[xCoord, yCoord]; 
SetCursor: PROCEDURE [CursorType]; 
SetJumpStripe: PROCEDURE [WindowHandle, BOOLEAN]; 
NullProc: PROCEDURE [WindowHandle. xCoord, yCoord]; 
NoteNameError: PROCEDURE [WindowHandle, STRING]; 
WriteMessageString: PROCEDURE [WindowHandle, STRING]; 
AssignScratchFile: PROCEDURE RETURNS[STRING , INTEGER]; 
LoadWindow: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]; 
GrowWindow: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]; 
MoveWindow: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] ; 
DestroyWindow: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]; 
CreateWindow: PROCEDURE [w: WindowHandle. x: xCoord, y: yCoord] ; 
PutSelect: PROCEDURE [w: WindowHandle, x: xCoord. y: yCoord]; 
WordSelect: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]; 
TextSelect: PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]; 
MenuSelect: PROCEDURE [w: WindowHandle. x: xCoord, y: yCoord]; 
Posit ionf ile: PROCEDURE[w: WindowHandle, x: xCoord, y: yCoord]; 
ScrollUpFile: PROCCDURE[w: WindowHandle, x: xCoord, y: yCoord]; 
ScrollDownFile: PROCFDURE[w: WindowHandle, x: xCoord, y: yCoord]; 
Normal izeSelection: PROCEDURE[w: WindowHandle, x: xCoord, y: yCoord]; 
CursorXAdjust: PROCEDURE RETURNS[INTEGER] ; 

-- constants 

maxl ines: INTEGER = 50; 
JumpStrip: INTEGER = leftmargin; 
slop: INTEGER = 10; 
maxscratch: INTEGER = 4; 
commands: INTEGER = 8; 

-- magic memory locations and contents 
DCBchainHead: DCBptr = LOOPHOl E[420B] ; 
xmouseloc: POTNTFR ^ ( OOPHOL F[424B] ; 
ymouseioc: POINTfR = l_00PH0Lr[425B] ; 
xcursorloc: POINTER = LOOPHOl £[426B] ; 
ycursorloc: POINTfR = LOOPHOl E[427B] ; 
buttonsloc: POINTER = LOOPH0Lr[ I 77030B] ; 
cursormap: POINTER = I OOPHOLE[431B] ; 

--WMANAGTR RECORD 
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WMDataObject: TYPE = RECORD [ 

scratchf iles: ARRAY [0. .maxscratch) OF DiskHandle, 

windows: ARRAY [0..4) OF WindowHandle, 

menuarray: ARRAY [0. . commands) OF Menultem, 

defaultfont: FAptr, 

defauUlineheight: INTEGER, 

defaultks: StreamHandle, 

defauUmapdata: BMHandle, 

nullindex: Streamlndex, 

originindex: Streamlndex, 

useKeyset: BOOLEAN, 

currentcursor: CursorType, 

TextProcArray : ProcArray, 

ScrollProcArray : ProcArray, 

ButtonProcArray : ProcArray]; 



END. of wmanagerdefs 



